inherited F_RotinaGeraPagtoProgAvulso: TF_RotinaGeraPagtoProgAvulso
  Left = 204
  Top = 182
  Width = 764
  Height = 467
  Caption = 'Gera Pagamento Programado'
  Constraints.MaxHeight = 0
  Constraints.MaxWidth = 0
  Constraints.MinHeight = 0
  Constraints.MinWidth = 0
  Menu = MainMenu1
  OldCreateOrder = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  inherited panel2: TPanel
    Width = 756
    inherited BtnExec: TBitBtn
      OnClick = BtnExecClick
    end
  end
  inherited pnBg: TPanel
    Width = 756
    Height = 262
    Align = alTop
    object Label6: TLabel
      Left = 5
      Top = 88
      Width = 65
      Height = 16
      Caption = 'Fornecedor'
    end
    object Label7: TLabel
      Left = 359
      Top = 88
      Width = 49
      Height = 16
      Caption = 'Portador'
    end
    object Label8: TLabel
      Left = 5
      Top = 141
      Width = 141
      Height = 16
      Caption = 'Classifica'#231#227'o Financeira'
    end
    object Label4: TLabel
      Left = 359
      Top = 195
      Width = 51
      Height = 16
      Caption = 'Hist'#243'rico'
    end
    object Label13: TLabel
      Left = 359
      Top = 141
      Width = 94
      Height = 16
      Caption = 'Centro de Custo'
    end
    object Label17: TLabel
      Left = 5
      Top = 195
      Width = 85
      Height = 16
      Caption = 'Conta Cont'#225'bil'
    end
    object DBText3: TDBText
      Left = 107
      Top = 195
      Width = 50
      Height = 16
      AutoSize = True
      DataField = 'PLANOCONT_CODIGOCONTABIL'
    end
    object Label18: TLabel
      Left = 5
      Top = 8
      Width = 103
      Height = 16
      Caption = 'Fonte de Recurso'
    end
    object DBLCBFornecedor: TDBLookupComboBox
      Tag = 5
      Left = 5
      Top = 108
      Width = 338
      Height = 22
      Ctl3D = False
      KeyField = 'FORN_CODIGO'
      ListField = 'FORN_RAZAO'
      ListSource = DSFornecedor
      ParentCtl3D = False
      TabOrder = 0
      OnKeyDown = DBLCBFornecedorKeyDown
    end
    object DBLCBPortador: TDBLookupComboBox
      Tag = 5
      Left = 359
      Top = 108
      Width = 339
      Height = 22
      Ctl3D = False
      KeyField = 'PORT_CODIGO'
      ListField = 'PORT_DESCRICAO'
      ListSource = DSPortador
      ParentCtl3D = False
      TabOrder = 1
      OnKeyPress = DBLCBPortadorKeyPress
    end
    object DBLCBPlano: TDBLookupComboBox
      Tag = 5
      Left = 5
      Top = 158
      Width = 338
      Height = 22
      Ctl3D = False
      KeyField = 'CODIGO'
      ListField = 'DESCRICAO'
      ListSource = DSPlano
      ParentCtl3D = False
      TabOrder = 2
      OnExit = DBLCBPlanoExit
    end
    object DBLCBCentroCusto: TDBLookupComboBox
      Tag = 5
      Left = 359
      Top = 158
      Width = 339
      Height = 22
      Ctl3D = False
      KeyField = 'CODIGO'
      ListField = 'DESCRICAO'
      ListSource = DSCentro
      ParentCtl3D = False
      TabOrder = 3
      OnKeyPress = DBLCBCentroCustoKeyPress
    end
    object DBLCBContaContabil: TDBLookupComboBox
      Tag = 5
      Left = 5
      Top = 212
      Width = 338
      Height = 22
      Hint = '(F7 - Todo , F8 -Relacionados)'
      Ctl3D = False
      KeyField = 'PLANOCONT_CODIGO'
      ListField = 'PLANOCONT_DESCRICAO'
      ListSource = DSPlanoContabil
      ParentCtl3D = False
      TabOrder = 4
      OnClick = DBLCBContaContabilClick
      OnKeyUp = DBLCBContaContabilKeyUp
    end
    object EHistorico1: TEdit
      Tag = 5
      Left = 359
      Top = 212
      Width = 339
      Height = 22
      Ctl3D = False
      MaxLength = 50
      ParentCtl3D = False
      TabOrder = 5
    end
    object EHistorico2: TEdit
      Tag = 5
      Left = 359
      Top = 233
      Width = 339
      Height = 22
      Ctl3D = False
      MaxLength = 50
      ParentCtl3D = False
      TabOrder = 6
    end
    object DBLFonteRecurso: TDBLookupComboBox
      Tag = 5
      Left = 5
      Top = 26
      Width = 338
      Height = 22
      Ctl3D = False
      KeyField = 'FONT_CODIGO'
      ListField = 'FONT_DESCRICAO'
      ListSource = dsFonteRecurso
      ParentCtl3D = False
      TabOrder = 7
    end
    object gbDocumento: TGroupBox
      Left = 359
      Top = 2
      Width = 394
      Height = 69
      Caption = '  Documento  '
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 8
      object Label10: TLabel
        Left = 14
        Top = 16
        Width = 24
        Height = 16
        Caption = 'Tipo'
      end
      object Label16: TLabel
        Left = 207
        Top = 16
        Width = 45
        Height = 16
        Caption = 'N'#250'mero'
      end
      object Label19: TLabel
        Left = 287
        Top = 16
        Width = 27
        Height = 16
        Caption = 'Data'
      end
      object DBLCBTipoDocumento: TDBLookupComboBox
        Tag = 5
        Left = 9
        Top = 36
        Width = 188
        Height = 22
        KeyField = 'TIPO_DOC_CODIGO'
        ListField = 'TIPO_DOC_DESCRICAO'
        ListSource = DSTipoDocumento
        TabOrder = 0
      end
      object EDocumento: TEdit
        Tag = 5
        Left = 207
        Top = 36
        Width = 70
        Height = 22
        MaxLength = 6
        TabOrder = 1
      end
      object DTDataDocumento: TDateEdit
        Tag = 5
        Left = 286
        Top = 36
        Width = 99
        Height = 23
        ButtonWidth = 26
        NumGlyphs = 2
        TabOrder = 2
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 297
    Width = 297
    Height = 136
    Align = alLeft
    TabOrder = 2
    object Label1: TLabel
      Left = 5
      Top = 10
      Width = 64
      Height = 16
      Caption = 'Data Inicial'
    end
    object Label2: TLabel
      Left = 6
      Top = 41
      Width = 95
      Height = 16
      Caption = 'Intervalo de Dias'
    end
    object Label3: TLabel
      Left = 6
      Top = 71
      Width = 61
      Height = 16
      Caption = 'Fixar dia ?'
    end
    object DEDataInicial: TDateEdit
      Tag = 5
      Left = 162
      Top = 10
      Width = 111
      Height = 26
      Ctl3D = False
      ButtonWidth = 26
      NumGlyphs = 2
      ParentCtl3D = False
      TabOrder = 0
    end
    object EIntervaloDias: TEdit
      Tag = 5
      Left = 162
      Top = 41
      Width = 38
      Height = 22
      BiDiMode = bdLeftToRight
      Ctl3D = False
      ParentBiDiMode = False
      ParentCtl3D = False
      TabOrder = 1
      OnEnter = EIntervaloDiasEnter
      OnExit = EIntervaloDiasExit
      OnKeyPress = EIntervaloDiasKeyPress
    end
    object CheckBNao: TCheckBox
      Left = 222
      Top = 71
      Width = 52
      Height = 21
      Caption = 'N'#227'o'
      Checked = True
      State = cbChecked
      TabOrder = 2
      OnClick = CheckBNaoClick
    end
    object CheckBSim: TCheckBox
      Left = 162
      Top = 71
      Width = 53
      Height = 21
      Caption = 'Sim'
      TabOrder = 3
      OnClick = CheckBSimClick
    end
  end
  object Panel3: TPanel
    Left = 297
    Top = 297
    Width = 459
    Height = 136
    Align = alClient
    TabOrder = 3
    DesignSize = (
      459
      136)
    object Label9: TLabel
      Left = 14
      Top = 10
      Width = 158
      Height = 16
      Caption = 'Quantidade de  Presta'#231#245'es'
    end
    object Label11: TLabel
      Left = 14
      Top = 41
      Width = 62
      Height = 16
      Caption = 'Valor Total'
    end
    object Label12: TLabel
      Left = 14
      Top = 71
      Width = 126
      Height = 16
      Caption = 'Valor da 1'#170' Presta'#231#227'o'
    end
    object Label15: TLabel
      Left = 14
      Top = 102
      Width = 215
      Height = 16
      Caption = 'Valor da(s) Pr'#243'xima(s) Presta'#231#245'es(s)'
    end
    object ENumeroPrestacao: TEdit
      Tag = 5
      Left = 229
      Top = 9
      Width = 41
      Height = 22
      Anchors = [akLeft, akTop, akRight, akBottom]
      BiDiMode = bdRightToLeft
      Ctl3D = False
      ParentBiDiMode = False
      ParentCtl3D = False
      TabOrder = 0
      OnEnter = ENumeroPrestacaoEnter
      OnExit = ENumeroPrestacaoExit
    end
    object EValorTotal: TEdit
      Tag = 5
      Left = 230
      Top = 41
      Width = 88
      Height = 22
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 1
      OnEnter = EValorTotalEnter
      OnExit = EValorTotalExit
      OnKeyPress = EValorTotalKeyPress
    end
    object EValorPrimeiraPrestacao: TEdit
      Tag = 5
      Left = 230
      Top = 71
      Width = 88
      Height = 22
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 2
      OnEnter = EValorPrimeiraPrestacaoEnter
      OnExit = EValorPrimeiraPrestacaoExit
    end
    object EValorProximaPrestacao: TEdit
      Tag = 5
      Left = 230
      Top = 102
      Width = 87
      Height = 22
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 3
      OnEnter = EValorProximaPrestacaoEnter
      OnExit = EValorProximaPrestacaoExit
    end
    object BAjutarValor: TButton
      Tag = 5
      Left = 326
      Top = 71
      Width = 97
      Height = 55
      Caption = 'Ajustar Valor'
      TabOrder = 4
      OnClick = BAjutarValorClick
    end
  end
  object dsCadastro: TDataSource
    AutoEdit = False
    DataSet = cdsCadastro
    Left = 160
    Top = 176
  end
  object QCadastro: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'Select first 1 * from ContasPagar')
    Left = 72
    Top = 160
  end
  object dspCadastro: TDataSetProvider
    DataSet = QCadastro
    Constraints = True
    Left = 88
    Top = 344
  end
  object cdsCadastro: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCadastro'
    Left = 120
    Top = 296
  end
  object dsCamposPesquisa: TDataSource
    Left = 272
    Top = 48
  end
  object DSPlano: TDataSource
    DataSet = DMFinanceiro.QPlanoSaida
    Left = 32
    Top = 320
  end
  object DSCentro: TDataSource
    DataSet = DMFinanceiro.QCentro
    Left = 80
    Top = 456
  end
  object QContasPagar: TQuery
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      'select * from PlanoContabilidade'
      'Where CodigoEmpresa = :Emp'
      'Order By PlanoCont_CodigoContabil')
    Left = 166
    Top = 474
    ParamData = <
      item
        DataType = ftString
        Name = 'Emp'
        ParamType = ptUnknown
        Value = '1'
      end>
  end
  object DSFornecedor: TDataSource
    DataSet = DMGestao.QFornecedor
    Left = 184
    Top = 464
  end
  object DSTipoDocumento: TDataSource
    DataSet = DMFinanceiro.QTipoDocumento
    Left = 256
    Top = 480
  end
  object dsFonteRecurso: TDataSource
    DataSet = DMFinanceiro.QFonteRecurso
    Left = 318
    Top = 453
  end
  object QPlanoContabil: TQuery
    Active = True
    DatabaseName = 'base'
    SQL.Strings = (
      'select * from PlanoContabilidade'
      'Where CodigoEmpresa = :Emp'
      'Order By PlanoCont_CodigoContabil')
    Left = 334
    Top = 546
    ParamData = <
      item
        DataType = ftString
        Name = 'Emp'
        ParamType = ptUnknown
        Value = '1'
      end>
  end
  object DSPlanoContabil: TDataSource
    DataSet = QPlanoContabil
    Left = 422
    Top = 482
  end
  object DSPortador: TDataSource
    DataSet = DMFinanceiro.Qportador
    Left = 496
    Top = 480
  end
  object MainMenu1: TMainMenu
    Left = 128
    Top = 88
  end
end
